home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1993 June
/
64er_Magazin_93-06_1993_Markt__Technik_de_Side_B.d64
/
listing 3-3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
830b
|
24 lines
10 rem *** arpeggio (akkord-sim.)
11 :
12 :sp=1 :rem arpeggio-zeit(time)
13 :a1=7492 :rem note 1 (arp #1)
14 :a2=8911 :rem note 2 (arp #2)
15 :a3=11227 :rem note 3 (arp #3)
16 :a4=14986 :rem note 4 (arp #4)
17 :m=0 :rem 3 (=0) oder 4 (=1) finger acc.
19 :
20 rem * ton einschalten
21 :
22 s=54272:pokes+4,8:pokes+24,15 :rem volle lautstaerke
23 pokes+6,255:pokes+5,0:pokes+4,33 :rem adsr und saegezahn-wellenform setzen
24 fori=0to10:next:pokes+4,32 :rem ton auf ausklingen setzen
29 :
40 rem * arpeggio !
41 :
43 g=g+1 :rem zaehler fuer arpeggio-nummer erhoehen
44 ifg=sp*1thenpokes,a1and255:pokes+1,a1/256 :rem 1.tonhoehe poken (arp.#1)
45 ifg=sp*2thenpokes,a2and255:pokes+1,a2/256 :rem 2.tonhoehe poken (arp.#2)
46 ifg=sp*3thenpokes,a3and255:pokes+1,a3/256:ifm=0theng=0:rem 3.ton
47 ifg=sp*4thenpokes,a4and255:pokes+1,a4/256:g=0:rem 4.ton und arp. neu starten
60 goto43 :rem nochmal